Business Assistant/Business Assistant.iso/indus/auto_inv/inv_0700.prg

Text File | 1991-08-07 | 4KB | 140 lines

*--------------------------------------------------------------------------
* Program KEV_0700 - Reset System Defaults (Invoice and Tax Rate)
*                       (c) 1991 Systematics Consulting, Inc.
*--------------------------------------------------------------------------
ANSWER = " "

DO WHILE .T.
CLEAR
   @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0700"
   @ 1,  1 SAY  DATE()
   @ 1, 71 SAY  TIME()
   @ 2,  5 TO  5,75 DOUBLE
   @ 3, 15 SAY  "             KEVIN'S  SUBARU                 "
   @ 4, 15 SAY  " SYSTEM FUNCTIONS - ALTER DEFAULT TAX RATE   "

   ANSWER = "N"
   @  8, 1
   @  8, 12  SAY "MODIFY DEFAULT TAX RATE (Y/N)? " GET ANSWER
   @  7, 5 TO 9, 75
   READ

  IF UPPER(ANSWER) = "N"
        EXIT
        ENDIF

  IF UPPER(ANSWER) = "Y"
      ANSWER = " "
      RESTORE FROM KEV_TAX.MEM ADDITIVE
      @  8, 1
      @  8, 12  SAY "ENTER DESIRED TAX RATE: "
      @  8, 36  GET SAVE_TAX PICTURE "##.#"
      @  7, 5 TO 9, 75
      READ
      ANSWER = "Y"
      @  8, 1
      @  8, 12  SAY "NEW TAX RATE IS: "
      @  8, 30  SAY SAVE_TAX PICTURE "##.#"
      @  8, 36  SAY "%  -  IS THIS CORRECT (y/n)? " GET ANSWER
      @  7, 5 TO 9, 75
      READ
      IF UPPER(ANSWER) = "Y"
         ERASE KEV_TAX.MEM
         SAVE TO KEV_TAX.MEM ALL LIKE SAVE_TAX
         EXIT
         ENDIF

ENDDO


DO WHILE .T.
CLEAR

   @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0700"
   @ 1,  1 SAY  DATE()
   @ 1, 71 SAY  TIME()
   @ 2,  5 TO  5,75 DOUBLE
   @ 3, 15 SAY  "             KEVIN'S  SUBARU                 "
   @ 4, 15 SAY  " SYSTEM FUNCTIONS - ALTER STARTING INVOICE # "

   ANSWER = "N"
   @  8, 1
   @  8, 12  SAY "MODIFY STARTING INVOICE NUMBER (Y/N)? " GET ANSWER
   @  7, 5 TO 9, 75
   READ

  IF UPPER(ANSWER) = "N"
        EXIT
        ENDIF

  IF UPPER(ANSWER) = "Y"
      ANSWER = " "
      RESTORE FROM KEV_INVNO.MEM ADDITIVE
      @  8, 1
      @  8, 12  SAY "ENTER NEW INVOICE #: "
      @  8, 36  GET KEV_INVNO PICTURE "#####"
      @  7, 5 TO 9, 75
      READ
      ANSWER = "Y"
      @  8, 1
      @  8, 12  SAY "NEW INVOICE #: "
      @  8, 30  SAY KEV_INVNO PICTURE "#####"
      @  8, 40  SAY "IS THIS CORRECT (y/n)? " GET ANSWER
      @  7, 5 TO 9, 75
      READ
      IF UPPER(ANSWER) = "Y"
         ERASE KEV_INVNO.MEM
         SAVE TO KEV_INVNO.MEM ALL LIKE KEV_INVNO
         EXIT
         ENDIF

ENDDO

CLEAR
   @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0700"
   @ 1,  1 SAY  DATE()
   @ 1, 71 SAY  TIME()
   @ 2,  5 TO  5,75 DOUBLE
   @ 3, 15 SAY  "             KEVIN'S  SUBARU                 "
   @ 4, 15 SAY  "   SYSTEM FUNCTIONS - DATA BASE REINDEX      "

   ANSWER = "Y"
   @  8, 1
   @  8, 12  SAY "DATA BASE REINDEX PROCESS(y/n)? " GET ANSWER
   @  7, 5 TO 9, 75
   READ

  IF UPPER(ANSWER) = "N"
        RETURN TO MASTER
        ENDIF

  IF UPPER(ANSWER) = "Y"
      CLEAR
      SET TALK ON
      ? " "
      ? "PACK AND REINDEX MASTER FILE - KEV_MSTR"
      ? " "
      SELECT 1
      USE KEV_MSTR INDEX KEV_IDX1
      PACK
      ? " "
      ? "PACK AND REINDEX LABOR FILE -  KEV_LBOR"
      ? " "
      SELECT 2
      USE KEV_LBOR INDEX KEV_IDX2
      PACK
      ? " "
      ? "PACK AND REINDEX PARTS FILE  - KEV_PART"
      ? " "
      SELECT 3
      USE KEV_PART INDEX KEV_IDX3
      PACK
      SET TALK OFF
      ? " "
      WAIT
      CLEAR
      RETURN TO MASTER
      ENDIF
*---------- END OF PROGRAM ----------------